home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-06-10 | 621 b |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs v18 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '(provide (quote xshell))
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00000010| 20 78 73 68 65 6c 6c 29 | 29 0a 0a 28 64 65 66 76 | xshell)|)..(defv|
|00000020| 61 72 20 65 78 70 6c 69 | 63 69 74 2d 73 68 65 6c |ar expli|cit-shel|
|00000030| 6c 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 78 73 68 |l-file-n|ame "xsh|
|00000040| 22 29 0a 0a 28 64 65 66 | 76 61 72 20 65 78 70 6c |")..(def|var expl|
|00000050| 69 63 69 74 2d 78 73 68 | 2d 61 72 67 73 20 28 71 |icit-xsh|-args (q|
|00000060| 75 6f 74 65 20 6e 69 6c | 29 29 0a 0a 28 64 65 66 |uote nil|))..(def|
|00000070| 75 6e 20 78 73 68 65 6c | 6c 20 6e 69 6c 20 28 69 |un xshel|l nil (i|
|00000080| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00000090| 65 2d 63 6f 64 65 20 22 | c0 88 c1 20 88 c2 c3 c4 |e-code "|... ....|
|000000a0| 21 c5 5c 22 87 22 20 5b | 6e 69 6c 20 73 68 65 6c |!.\"." [|nil shel|
|000000b0| 6c 20 73 65 74 2d 70 72 | 6f 63 65 73 73 2d 66 69 |l set-pr|ocess-fi|
|000000c0| 6c 74 65 72 20 67 65 74 | 2d 70 72 6f 63 65 73 73 |lter get|-process|
|000000d0| 20 22 73 68 65 6c 6c 22 | 20 73 74 72 69 70 2d 63 | "shell"| strip-c|
|000000e0| 74 72 6c 2d 6f 2d 66 69 | 6c 74 65 72 5d 20 35 29 |trl-o-fi|lter] 5)|
|000000f0| 29 0a 0a 28 64 65 66 75 | 6e 20 73 74 72 69 70 2d |)..(defu|n strip-|
|00000100| 63 74 72 6c 2d 6f 2d 66 | 69 6c 74 65 72 20 28 70 |ctrl-o-f|ilter (p|
|00000110| 72 6f 63 20 73 74 72 69 | 6e 67 29 20 28 62 79 74 |roc stri|ng) (byt|
|00000120| 65 2d 63 6f 64 65 20 22 | 70 18 c4 8e c5 19 c6 0a |e-code "|p.......|
|00000130| 21 71 88 60 c7 0a 21 55 | 89 11 88 8a c7 0a 21 62 |!q.`..!U|......!b|
|00000140| 88 c8 0b c9 5c 22 63 88 | ca c7 0a 21 60 5c 22 29 |....\"c.|...!`\")|
|00000150| 88 09 85 2f 00 c7 0a 21 | 62 29 29 29 87 22 20 5b |.../...!|b)))." [|
|00000160| 6f 6c 64 2d 62 75 66 66 | 65 72 20 6d 6f 76 69 6e |old-buff|er movin|
|00000170| 67 20 70 72 6f 63 20 73 | 74 72 69 6e 67 20 28 28 |g proc s|tring ((|
|00000180| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 71 87 22 20 |byte-cod|e ".q." |
|00000190| 5b 6f 6c 64 2d 62 75 66 | 66 65 72 5d 20 31 29 29 |[old-buf|fer] 1))|
|000001a0| 20 6e 69 6c 20 70 72 6f | 63 65 73 73 2d 62 75 66 | nil pro|cess-buf|
|000001b0| 66 65 72 20 70 72 6f 63 | 65 73 73 2d 6d 61 72 6b |fer proc|ess-mark|
|000001c0| 20 73 74 72 69 70 2d 63 | 74 72 6c 2d 6f 20 30 20 | strip-c|trl-o 0 |
|000001d0| 73 65 74 2d 6d 61 72 6b | 65 72 5d 20 38 29 29 0a |set-mark|er] 8)).|
|000001e0| 0a 28 64 65 66 75 6e 20 | 73 74 72 69 70 2d 63 74 |.(defun |strip-ct|
|000001f0| 72 6c 2d 6f 20 28 73 74 | 72 69 6e 67 20 73 74 61 |rl-o (st|ring sta|
|00000200| 72 74 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |rt) (byt|e-code "|
|00000210| c5 c6 09 0a 23 18 08 c3 | 3d 83 13 00 09 0a c3 4f |....#...|=......O|
|00000220| 82 1d 00 09 0a 08 4f c7 | 09 08 54 5c 22 50 29 87 |......O.|..T\"P).|
|00000230| 22 20 5b 69 64 78 20 73 | 74 72 69 6e 67 20 73 74 |" [idx s|tring st|
|00000240| 61 72 74 20 6e 69 6c 20 | 74 20 73 74 72 69 6e 67 |art nil |t string|
|00000250| 2d 6d 61 74 63 68 20 22 | 0f 22 20 73 74 72 69 70 |-match "|." strip|
|00000260| 2d 63 74 72 6c 2d 6f 5d | 20 35 29 29 0a |-ctrl-o]| 5)). |
+--------+-------------------------+-------------------------+--------+--------+
